﻿Imports System
Imports System.Collections

Public Class DocumentosBE
#Region "Campos y Propiedades"
    Private _IdDocumento As Integer
    Private _IdLote As Integer
    Private _IdTipoDocumental As Integer
    Private _Titulo As String
    Private _Archivo As String
    Private _Paginas As Integer
    Private _Activo As Boolean
    Private _FechaCreacion As String

    Public Property IdDocumento() As Integer
        Get
            Return _IdDocumento
        End Get
        Set(ByVal value As Integer)
            _IdDocumento = value
        End Set
    End Property
    Public Property IdLote() As Integer
        Get
            Return _IdLote
        End Get
        Set(ByVal value As Integer)
            _IdLote = value
        End Set
    End Property
    Public Property IdTipoDocumental() As Integer
        Get
            Return _IdTipoDocumental
        End Get
        Set(ByVal value As Integer)
            _IdTipoDocumental = value
        End Set
    End Property
    Public Property Titulo() As String
        Get
            Return _Titulo
        End Get
        Set(ByVal value As String)
            _Titulo = value
        End Set
    End Property
    Public Property Archivo() As String
        Get
            Return _Archivo
        End Get
        Set(ByVal value As String)
            _Archivo = value
        End Set
    End Property
    Public Property Paginas() As Integer
        Get
            Return _Paginas
        End Get
        Set(ByVal value As Integer)
            _Paginas = value
        End Set
    End Property
    Public Property Activo() As Boolean
        Get
            Return _Activo
        End Get
        Set(ByVal value As Boolean)
            _Activo = value
        End Set
    End Property
    Public Property FechaCreacion() As String
        Get
            Return _FechaCreacion
        End Get
        Set(ByVal value As String)
            _FechaCreacion = value
        End Set
    End Property
#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

#End Region
End Class

Public Class DocumentosBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As DocumentosBE
        Get
            Return CType(List(index), DocumentosBE)
        End Get
        Set(ByVal value As DocumentosBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As DocumentosBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As DocumentosBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As DocumentosBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As DocumentosBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As DocumentosBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class



